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1 . ABSTRACT 

The JMS Y - Interrupt Test determines if the PDP-9 will complete a JMS Y (where Y is some 
random value) instruction before it goes into program interrupt. This is done by setting an I/O flag and 
then transferring control to an ION/JMS Y instruction group (which is located at some random place in 
memory). The computer should complete the JMS Y instruction before the computer goes into program 
interrupt. If no error occurs, the ION/JMS Y instruction group is moved to other random memory lo- 
cations and the test is repeated. Errors are indicated to the operator via the Teletype or error halts. 

2. REQUIREMENTS 

2. 1 Equipment 

Standard PDP-9 computer 

2.2 Storage 

The program uses all of 8K memory for the program or as a test area. The program occupies 
memory from location 17400 to 17771 and tests all locations below 17377. 

2.3 Preliminary Programs 

Instruction Test - Parts 1 and 2 (MAINDEC 9A-D01 A-D and MAINDEC 9A-D02A-D) 

3. LOADING PROCEDURE 

3.1 Method 

a. Put HRI tape of program in reader 

b. Set ADDRESS SWITCHES to 17400 

c. Depress and release READIN key. 

4. STARTING PROCEDURE 

4.1 Control Switch Settings 

The following is a table of ACCUMULATOR SWITCH settings and their action on the program: 



AC Switch 


S 


=t As 


Action 







1 


Halt on error 


1 





1 


Don't halt on error 
Don't print errors 









Print errors 



AC Switch 


Set As 


2 


1 







3 


1 







4 


1 
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Action 



Ring bell on error 

Ring bell after N passes 

Loop on current Y 

Don't loop on current Y 

Loop on current location 

Don't loop on current location 

N is an arbitrary number (initially 1 00 ft ) which is controlled by the LAW-N instruction in 
location 17400 and may be changed at the operator's discretion. 

4.2 Starting Address 

The starting address of the program is 17400. 

4.3 P rogram and/or Operator Action 

a . Set ADDRESS SWITCHES to 1 7400 

b. Set ACCUMULATOR SWITCHES to desired positions (see section 4.1). Normal 
setting is 500000 

c. Depress I/O RESET 

d. Depress START 

5. OPERATING PROCEDURE 

5. 1 Operational Switch Settings 
See section 4. 1 

5.2 Subroutine Abstracts 
None 

5.3 Program and/or Operator Action 

To put the program in the scope mode, the ACCUMULATOR SWITCH REGISTER should be set 
to 260000 (don't halt, don't print, bell after N passes, loop on current Y, loop on current location). 



I 
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6. ERRORS 

Unless AC switch 1 is a 1 , errors will be printed on the Teletype. 

6.1 Error Halts and Description 

There is one error halt inside the program at location 17566. Any program diagnosed errors 
will cause a halt at this location if AC switch is a 1 . The program stores HALT in all locations of the 
test area of memory. If the computer does not go info program interrupt immediately after executing 
the JMS Y, the computer will halt at location Y + 1 . 

6.2 Error Recovery 

6.2.1 Program Diagnosed Error - If AC switch is a 1, the computer will halt on a diagnosed error. 
To recover from this type of error, reset AC switches to 4 as necessary, (see section 4.1) and then 
depress CONTINUE. 

6.2.2 Interrupt Failures - Interrupt failures will cause a halt at location Y + 1 . To recover, reset 
AC switches to 4 as necessary (see section 4.1) and then start the computer at location 17400 (BEGIN) 
after depressing I/O RESET. 

6.2.3 Test for ION, JMS Y, and Y - To test particular memory locations for the ION, JMS Y, 
and/or Y, store the address of the ION in location 17756 (POINT1), that address + 1 in location 17757 
(POINT2), the address Y in location 17760 (POINT3). Then set AC switches 3 and 4 to 1 , depress 
I/O RESET, and start the computer at location 17400 (BEGIN). Y and location of ION must be less 
than 1 7377 and not 00000 or 00001 . 



MAINDEC-9A-D0FA-D 



6.3 



Error Switch Hierarchy 



6,4 Error Typeout Example 




YES 



RING SELL 



PRINT ERRORS 



1 < ON ERROR > 


■ 


r 


(SWITCH 0) 


STOP 






' 


' 







RETURN TO 

MAIN PROGRAM. 

CHECK FOR REPEAT 

OF ERROR 

CONDITIONS. 



ION 



JMS Y 



JMS AT " Y " C(0) C ( Y ) 

001234 007654 001235 740040 

The above example shows that a JMS 7654 instruction was stored in location 1234 (it is 
implied that the ION is in 1233). The 1235 stored in location 00000 as well as the 740040 (HLT) in 
Y indicates the JMS was not completed before the computer went into program interrupt. 
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MISCELLANEOUS 



7.1 



Execution Time 



Approximately 96 psec per ION/JMS Y instruction group. 



MAINDEC-9A-D0FA-D 

PROGRAM DESCRIPTION 

a. The first function that is performed is that of initialization. A register to count 
loops and a location to assure typeout of the error message header are initialized, and 
the bell on the Teletype is rung to raise the teleprinter flag to assure a flag for program 
interrupt . 

b. Then a check is made to see if the locations of the ION and JMS Y instructions 
should be changed (switch 4). If they are not changed, the program proceeds to c. 

If they are, a number is obtained from a random number generator, made into an address 
and checked that it is below the program, not equal to Y or Y + 1 , not equal to 00000 
or 00001, and stored in POINT 1 and incremented and stored in POINT 2. 
c . Then a check is made to see if the number Y should be changed (switch 3). If it is 
not, the program proceeds to d . If it is, a number is obtained from a different random 
number generator than was used in b, made into an address, checked to see that it was 
at least 2 below the program, not equal to the location of ION or JMS Y instructions, 
not equal to 00000 or 00001, and stored in POINT 3. 

d. Then HALT is stored in all memory locations in the test area of memory. The ION 
instruction is stored, as well as the JMS Y instruction after it has been formed from Y 
and JMS. The AC and Link are then cleared and control is transferred to the ION/ 
JMS Y instruction group. 

e. Upon return from the program interrupt, the contents of location Y are checked 
as well as the contents of location 00000 to make sure the proper numbers were stored 
in these locations. If not, the error subroutine is called. 

f . A check is then made to see if the SCOPE mode (AC switches 3 and 4 a 1 ) has been 
requested and if so, control is immediately transferred back to the instruction group. 

g. If the instruction group is not being SCOPED, a check is made on ringing the bell 
(switch 2) after which control goes back to b. 
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.TITLE IONJMS 



17400 

17400 
17401 
17402 
17403 
17404 
17405 

17406 
17407 
17410 
17411 
17412 
17413 
17414 
17415 
17416 
17417 
17420 
17421 
17422 
17423 
17424 
17425 
17426 
17427 
17430 
17431 
17432 
17433 
17434 
17435 
17436 
17437 
17440 
17441 



777700 
057743 
760207 
117601 
777714 
057541 

750004 
517751 
740200 
617442 
117631 
517747 
057757 
057760 
457760 
741200 
617412 
557754 
617412 
357767 
740100 
617412 
217760 
357767 
740100 
617412 
217761 
557757 
617412 
557760 
617412 
357754 
557757 
617412 



/JMS Y- 
/ 


■INTERRUPT TEST 


.EULL 


/ 

BEGIN 


.LOC 17400 


LAW 


17700 




OAC 


COUNT 




LAW 


207 




JMS 


TYPE 




LAW 


MESSl 


/ 

HEREl 


OAC 


ERRORl+13 


LAS 






AND 


MASK2 




SZA 






JMP 


HERE2 




JMS 


RANDOM 




AND 


MASK 




DAC 


POINT1 




DAC 


P0INT2 




IS? 


P0INT2 




SNA 






JMP 


HERE1+4 




SAD 


ONE 




JMP 


HERE1+4 




TAD 


UPLIM 




SMA 






JMP 


HERE1+4 




LAC 


P0INT2 




TAD 


UPLIM 




SMA 






JMP 


HERE1+4 




LAC 


P0INT3 




SAD 


POINTl 




JMP 


HERE1+4 




SAD 


P0INT2 




JMP 


HERE1+4 




TAD 


ONE 




SAD 


POINTl 




JMP 


HERE1+4 



/SET UP TO COUNT LOOPS 

/RING BELL TO SET UP I/O FLAG 

/INITIALIZE ERROR TYPEOUT ROUTINE 



/VARY CURRENT LOCATION? 

/NO 

/YES, GENERATE RANDOM ADDRESS 

/STORE IN "ION" POINTER 

/STORE IN "JMS Y" POINTER 

/AND INCREMENT 

/IS "ION"=0? 

/YES 

/HOW ABOUT 1? 

/YES 

/IS THE "ION" POINTER 

/INSIDE THIS PROGRAM? 

/YES, GENERATE ANOTHER 

/NO, NOW HOW ABOUT 

/THE "JMS Y" POINTER 

/IS IT OK? 

/NO, TRY AGAIN 

/OK SO FAR, NOW IS "Y" POINTER 

/EQUAL TO "ION" POINTER? 

/YES 

/NO, EQUAL TO "JMS Y" POINTER? 

/YES 

/ADD 1 AND CHECK 

/THAT THERE IS AT LEAST 

/ONE LOCATION BETWEEN "Y" + "ION" 



:onjms 



PAGE 
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17442 


750004 HERE2 LAS 




17443 


517750 


AND 


MASK1 


17444 


740200 


SZA 




17445 


617470 


JMP 


HERE3 


17446 


117642 


JMS 


RANDUM 


17447 


517747 


AND 


MASK 


17450 


057761 


DAC 


POINT3 


17451 


741200 


SNA 




17452 


617446 


JMP 


HERE2+4 


17453 


557754 


SAD 


ONE 


17454 


617446 


JMP 


HERE2+4 


17455 


357771 


, TAD 


UPLIM2 


17456 


740100 


SMA 




17457 


617446 


JMP 


HERE2+4 


17460 


217761 


LAC 


P0INT3 


17461 


557757 


SAD 


POINT1 


17462 


617446 


JMP 


HERE2-M 


17463 


557760 


SAD 


P0INT2 


17464 


617446 


JMP 


HERE2+4 


17465 


357754 


TAD 


ONE 


17466 


557757 


SAD 


POINT1 


17467 


617446 


JMP 


HERE2+4 


17470 


117615 HERE3 JMS 


HALT 


17471 


217745 


LAC 


IONCON 


17472 


077757 


DAC* 


* POINTl 


17473 


217761 


LAC 


P0INT3 


17474 


257746 


XOR 


JMSCON 


17475 


077760 


DAC 


» P0INT2 


17476 


754000 


CLA 


!CLL 


17477 


637757 


JMP 


» POINTl 



/VARY "Y" POINTER 

/NO 

/YES, GENERATE RANDOM ADDRESS 

/AND STORE IN POINT 3 

/IS "Y"=0? 

/YES 

/HOW ABOUT 1? 

/YES 

/IS "Y" INSIDE PROGRAM OR 

/FIRST LOCATION BEFORE 

/YES 

/OK SO FAR NOW IS "Y" POINTER 

/EQUAL TO "ION" POINTER 

/YES 

/NO, EQUAL TO "JMS Y" POINTER 

/YES 

/ADD 1 AND CHECK 

/THAT THERE IS AT LEAST 

/ONE LOCATION BETWEEN "Y" + "ION' 

/STORE HALTS IN MEMORY 

/THEN THE ION VIA 

/"ION" POINTER 

/GET "Y» 

/FORM JMS "Y" 

/STORE VIA "JMS Y" POINTER 

/CLEAR AC 8 L 

/EXECUTE ION-JMS Y 



IONJMS 



PAGE 
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tttt 



17500 
17501 
17502 
17503 
17504 
17505 
17506 
17507 
17510 
17511 
17512 
17513 
17514 
17515 
17516 
17517 
17520 

17521 
17522 
17523 
17524 
17525 



217760 
357754 
577761 
741000 
617511 
217761 
357754 
540000 
741000 
117526 
750004 
742010 
742010 
740400 
617521 
755100 
637757 

750004 
742010 
740100 
117571 
617406 



RETURN 



LAC P0INT2 

TAD ONE 

SAD» P0INT3 

SKP 

JMP .+5 

LAC P0INT3 

TAD ONE 

SAD 

SKP 

JMS ERROR1 

LAS 

RTL 

RTL 

SNL 

JMP .+3 

SPAlCLAlCLL 

JMP» POINT1 

LAS 

RTL 

SMA 

JMS BELL 

JMP HERE1 



/GET LOCATION OF JMS 
/FORM ADDRESS STORED IN "Y" 
/IS THIS NUMBER STORED IN Y? 
/YES, ALL OK 

/NO, ERROR 

/C(0)=C(POINT3)+1? 

/YES 

/NO 



/MOVE BITS 3+4 INTO LINK 1 AC 

/LOOP ON CURRENT »Y"? 

/NO 

/YES, LOOP ON CURRENT LOCATION? 

/YES, RETURN TO ION-JMS Y i 



/RING BELL? 
/YES 
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PAGE 







/ERROR TYPEOUT 

/ 

ERROR1 


' SUBROUTINE 




175?6 


000000 






17527 


750004 


LAS 






17530 


742010 


RTL 






17531 


740100 


SMA 




/RING BELL? 


17532 


617535 


JMP 


.+3 


/NO 


17533 


760207 


LAW 


207 




17534 


117601 


JMS 


TYPE 




17535 


750004 


LAS 






17536 


740010 


RAL 






17537 


741100 


SPA 




/PRINT ERRORS? 


17540 


617564 


JMP 


.+24 


/NO 


17541 


777714 


LAW 


MESS1 




17542 


117673 


JMS 


MPRINT 


/PRINT HEADER 


17543 


217753 


LAC 


NEWINS 




17544 


057541 


OAC 


ERRORl+13 


/CHANGE SO THA 


17545 


217760 


LAC 


P0INT2 




17546 


117653 


JMS 


PRINT 


/TYPE LOCATION 


17547 


760240 


LAW 


240 




17550 


117601 


JMS 


TYPE 


/l SPACE 


17551 


217761 


LAC 


P0INT3 




17552 


117653 


JMS 


PRINT 


/TYPE "Y" 


17553 


760240 


LAW 


240 




17554 


117601 


JMS 


TYPE 


/l SPACE 


17555 


200000 


LAC 







17556 


117653 


JMS 


PRINT 


/PRINT C(0) 


17557 


760240 


LAW 


240 




17560 


117601 


JMS 


TYPE 


/l SPACE 


17561 


237761 


LAC» P0INT3 




17562 


760207 


LAW 
/ 

JMS 


207 




17563 


117653 


PRINT 


/cm 


17564 


117607 


JMS 


CRLF 


/CR-LF 


17565 


750004 


LAS 






17566 


741100 


SPA 




/HALT ON ERROR 


17567 


740040 


XX 




/YES 


17570 


637526 


JMP< 


* ERROR1 


/EXIT 



HEADER PRINTS ONLY ONCE 



OF JMS 
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5 






t t t t 




/USEFUL 

/ 

BELL 


SUBROUTINES 


17571 


000000 





17572 


457743 




ISZ COUNT 


17573 


637571 




JMP» BELL 


17574 


417400 




XCT BEGIN 


17575 


057743 




DAC COUNT 


17576 


760207 




LAW 207 


17577 


117601 




JMS TYPE 


17600 


637571 


/ 

TYPE 


JMP» BELL 


17601 


000000 


- 


17602 


517762 




AND RUROUT 


17603 


700406 




TLS 


17604 


700401 




TSF 


17605 


617604 




JMP .-1 


17606 


637601 


/ 

CRLF 


JMP* TYPE 


17607 


000000 





17610 


760215 




LAW 215 


17611 


117601 




JMS TYPE 


17612 


760212 




LAW 212 


17613 


117601 




JMS TYPE 


17614 


637607 


/ 


JMP* CRLF 






/ 

/SUBROUTINE TO STORE 


17615 


000000 


HALT 





17616 


157755 




DZM PNTR 


17617 


217744 




LAC HLTCON 


17620 


077755 




DAC* PNTR 


17621 


457755 




ISZ PNTR 


17622 


217755 




LAC PNTR 


17623 


557770 




SAO UPLIM1 


17624 


741000 




SKP 


17625 


617617 




JMP HALT+2 


17626 


217742 




LAC C0N1 


17627 


040001 




OAC 1 


17630 


637615 




JMP* HALT 



HALTS IN MEMORY 



I ON JMS PAGE 
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/RANDOM 

/ 

RANDOM 


NUMBER GENERATOR 


17631 


000000 





17632 


217640 




LAC RAND1 


17633 


744010 




RALiCLL 


17634 


7 414 




SZL 


17635 


357641 




TAO RAND1+1 


17636 


057640 




DAC RANOl 


17637 


637631 




JMP» RANDOM 


17640 


000005 


RAND1 


5 


17641 


000003 


/ 

RANDUM 


3 


17642 


000000 





17643 


217651 




LAC RAND2 


17644 


744010 




RALICLL 


17645 


741400 




SZL 


17646 


357652 




TAD RAND2+1 


17647 


057651 




DAC RAN02 


17650 


637642 




JMP» RANDUM 


17651 


000175 


RAND2 


175 


17652 


000003 


/ 


3 






/ 

/OCTAL 

/ 

PRINT 


PRINT SUBROUTINE 


17653 


000000 





17654 


057765 




DAC TEMP 


17655 


777772 




LAW 17772 


17656 


057764 




DAC TALLY 


17657 


217765 




LAC TEMP 


17660 


744010 




RALiCLL 


17661 


740010 




RAL 


17662 


742010 




RTL 


17663 


057765 




DAC TEMP 


17664 


517763 




AND SEVEN 


17665 


357741 




TAD ASK I I 


17666 


117601 




JMS TYPE 


17667 


217765 




LAC TEMP 


17670 


457764 




ISZ TALLY 


17671 


617661 




JMP .-10 


17672 


637653 




JMP* PRINT 



IONJMS PAGE 
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/MESSAGE 

/ 

MPRINT 


PRINT SUBROUTINE 




17673 


000000 







17674 


057756 




OAC PNTR1 




17675 


237756 




LAC* PNTR1 




17676 


742020 




RTR 




17677 


742020 




RTR 




17700 


742020 




RTR 




17701 


742020 




RTR 




17702 


740020 




RAR 




17703 


117601 




JMS TYPE 




17704 


557762 




SAD RUBOUT 




17705 


637673 




JMP« MPRINT 




17706 


237756 




LAC* PNTRl 




17707 


117601 




JMS TYPE 




17710 


557762 




SAD RUBOUT 




17711 


637673 




JMP# MPRINT 




17712 


457756 




ISZ PNTRl 




17713 


617675 


/ 


JMP MPRINT+2 








/ 

/ERROR MESSAGE HEADER 




17714 


215212 


MESS1 


215212 


/CRLF 


17715 


311317 




311317 


/I .0 


17716 


316255 




316255 


/N.- 


17717 


312315 




312315 


/J.M 


17720 


323240 




323240 


/S.SP 


17721 


331215 




331215 


/Y.CR 


17722 


212312 




212312 


/LF, J 


17723 


315323 




315323 


/M,S 


17724 


240301 




240301 


/SP.A 


17725 


324240 




324240 


/T,SP 


17726 


240240 




240240 


/SP.SP 


17727 


242331 




242331 


/", Y 


17730 


242240 




242240 


/",SP 


17731 


240240 




240240 


/SP,SP 


17732 


303250 




303250 


/C. ( 


17733 


260251 




260251 


/0, ) 


17734 


240240 




240240 


/SP.SP 


17735 


240303 




240303 


/SP,C 


17736 


250331 




250331 


/(,Y 


17737 


251215 




251215 


/) ,CR 


17740 


212377 




212377 


/LF,RO 



MAINDEC-9A-D0FA-LA 
Page 13 



JONJMS PAGE 


8 






MM 




/CONSTANTS AND VARIABLES 

/ 


17741 


000260 


/ 

ASKI I 


260 


17742 


617500 


C0N1 


JMP RETURN 


17743 


000000 


COUNT 





17744 


740040 


HLTCON 


HLT 


17745 


700042 


I0NC0N 


ION 


17746 


100000 


JMSCON 


JMS 


17747 


017777 


MASK 


17777 


17750 


040000 


MASK1 


40000 


17751 


020000 


MASK2 


20000 


17752 


010000 


MASK3 


, 10000 


17753 


617545 


NEWINS 


JMP ERR0R1+17 


17754 


000001 


ONF 


1 


17755 


000000 


PNTR 





17756 


000000 


PNTR1 





17757 


000002 


P0INT1 


2 


17760 


000003 


P0INT2 


3 


17761 


000004 


P0INT3 


4 


17762 


3 7 7 


RUBOUT 


377 


17763 


000007 


SEVEN 


7 


17764 


000000 


TALLY 





17765 


000000 


TEMP 





17766 


00000? 


TWO 


2 


17767 


760400 


UPLIM 


-BEGIN 


17770 


017400 


UPLIM1 


BEGIN 


17771 


760401 


UPLIM2 
/ 


-BEGIN+1 




000000 


.END 
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IONJMS 



PAGE 



ASKI ! 


17741 


H E G I N 


17400 


HELL 


17571 


CON1 


17 7 4 2 


COUNT 


17743 


URLF 


17 6 7 


LRROR1 


17526 


HALT 


17615 


HERE1 


17406 


HERE? 


17442 


HERE3 


17470 


HLTCON 


17744 


IONCON 


17745 


JMSCON 


17746 


HASK 


17 7 4 7 


•"1 A S K 1 


17750 


1ASK? 


17751 


•1 A S K 3 


17752 


MESS1 


17714 


■•1PR INT 


17673 


NE^INS 


17753 


ONE 


17754 


RNTR 


17755 


RNTR1 


17 7 5 6 


POINT1 


17757 


P0INT2 


17760 


R0INT3 


17761 


PRINT 


17653 


RANDOM 


17631 


random 


17642 


RANOl 


17640 


RAND? 


17651 


RETURN 


17500 


RUHOUT 


17762 


SEVEN 


17763 


TALLY 


17764 


IE MP 


17765 


TWO 


17766 


TYRE 


1 7 6 V) 1 


UPLIM 


17767 


U P L I M 1 


17770 


U P L I M 2 


17771 



i ' v J M S 
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HEGIN 

HERE1 

HERE? 

HERE3 

RETURN 

ERR0R1 

HELL 

TYPE 

CRLF 

HALT 

Random 

RAND1 
RANDUM 
RAND? 
PRINT 
HPRINT 
HESS1 
ASK I I 
CON1 
COUNT 
HLTCON 
IONCflN 
JMSCON 
HASK 
HASK1 
MASK? 
HASK3 
NE^INS 
ONE 
'PNTR 
PNTR1 
POINT1 
POINTS 
P0INT3 
RUPOUT 
SEVEN 
TALLY 
TEMP 
TWO 
UPLIM 
UPLIM1 
JPLIM2 



17400 
17406 
17442 
17470 
17 5 
17526 
17571 
17601 
17607 
17615 
17631 
17640 
17642 
17651 
17653 
17673 
17714 
17741 
17742 
17743 
17744 
17745 
17746 
17747 
17750 
17751 
17752 
17753 
17754 
17755 
17756 
17757 
17760 
17761 
17762 
17763 
17764 
17765 
17766 
17767 
17770 
17771 



Baiii 



